home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Floppyshop 2
/
Floppyshop - 2.zip
/
Floppyshop - 2.iso
/
art&graf.ix
/
art-0039
/
source
/
dcscreen.def
< prev
next >
Wrap
Text File
|
1997-04-16
|
4KB
|
65 lines
DEFINITION MODULE DCScreen;
(*---------------------------------------------------------------------*)
(* Screen Display Module for DegasConvert *)
(* *)
(* Functions: *)
(* 1) Given a hi-resolution display, show it on the screen, *)
(* taking into account the current screen resolution. *)
(* *)
(* *)
(* 2) Given a hi-resolution display, show it on a hi-res *)
(* terminal. *)
(* *)
(* 3) Given a medium resolution display, show it on a *)
(* medium res ( colour ) terminal. *)
(* *)
(* 4) Given a hi-resolution display, rearrange it so that *)
(* it is suitable for displaying on a med-res terminal. *)
(* *)
(* 5) Given a Hi-res picture display it on the FULL screen. *)
(* i.e. overwrite menu & window. *)
(* *)
(* Version 2.0 August 1988 L.G.Miller *)
(* *)
(* Version 1.1 August 1987 L.G.Miller *)
(*---------------------------------------------------------------------*)
FROM DCGlobal IMPORT HiResScreen,
MedResScreen;
(*----------------------------------------------------------------------*)
(* Show a hi-res display on the screen irrespective of current screen *)
(* resolution. *)
(*----------------------------------------------------------------------*)
PROCEDURE DisplayPicture ( VAR picture : HiResScreen );
(*----------------------------------------------------------------------*)
(* Show a hi-res display on the FULL screen irrespective of current *)
(* resolution. This routine is used by DoSelectImage. *)
(*----------------------------------------------------------------------*)
PROCEDURE DisplayFullPicture ( VAR picture : HiResScreen );
(*----------------------------------------------------------------------*)
(* Show the given hi-res picture on the screen *)
(*----------------------------------------------------------------------*)
PROCEDURE DisplayHiResPicture( VAR picture : HiResScreen );
(*----------------------------------------------------------------------*)
(* Show the converted hi-res picture on the screen *)
(*----------------------------------------------------------------------*)
PROCEDURE DisplayMedResPicture ( VAR picture : MedResScreen );
(*----------------------------------------------------------------------*)
(* For colour users rearrange a hi-res screen into a med-res screen *)
(*----------------------------------------------------------------------*)
PROCEDURE ConvertHiToMedResDisplay ( VAR hiresdisplay : HiResScreen;
VAR medresdisplay : MedResScreen );
END DCScreen.